package Sequence::Infinite;
use Sequence::Infinite::Combined;

use overload 
    '+' => sub { new Sequence::Infinite::Combined( @_, '+' ) },
    '-' => sub { new Sequence::Infinite::Combined( @_, '-' ) },
    '*' => sub { new Sequence::Infinite::Combined( @_, '*' ) },
    '/' => sub { new Sequence::Infinite::Combined( @_, '/' ) },
    '%' => sub { new Sequence::Infinite::Combined( @_, '%' ) },
    '**' => sub { new Sequence::Infinite::Combined( @_, '**' ) },
    'fallback' => 1
;

sub new { bless {}, shift }
sub increment { undef }

1;
